home *** CD-ROM | disk | FTP | other *** search
/ Young Minds / Young Minds Interactive CD-ROM.ISO / mpss / main.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-07-20  |  7.9 KB  |  397 lines
  1.  
  2. /*******************************************************************************
  3. ********************************************************************************
  4. ********************************************************************************
  5.  
  6. PERMISSION TO COPY THIS SOFTWARE IS HEREBY GIVEN BY THE AUTHOR PROVIDED THAT
  7. THIS LEADING MESSAGE IS INCLUDED IN ALL OF THE RELEVANT SOURCE FILES.
  8.  
  9.         P. SCHMITZ, UNIVERSITY OF KEELE, MAY 1988.
  10.  
  11.  
  12. ********************************************************************************
  13. ********************************************************************************
  14. *******************************************************************************/
  15. #include <signal.h>
  16. #include "files.h"
  17. #include "header.h"
  18.  
  19. checkmasterpidfile()
  20. {
  21. int rpid,masterpid;
  22. char string[15];
  23. FILE *ff,*fopen();
  24.  
  25. masterpid=getpid();
  26. sprintf(string,"%d",masterpid);
  27. if ((ff=fopen(MASTERPIDFILE,"r"))==NULL) 
  28.     {
  29.     /*fprintf(stdout,"main.c: Can't read masterpidfile\n");*/
  30.     die();
  31.     } else
  32.     {
  33.     fgets(string,15,ff); /*get pid*/
  34.     fclose(ff);
  35.     }
  36. sscanf(string,"%d\n",&rpid);
  37. if (rpid!=masterpid) 
  38.     {
  39.     /*fprintf(stdout,"main.c: pids not equal!!! %d %d\n",rpid,masterpid);*/
  40.     die();
  41.     }
  42. signal(SIGALRM,checkmasterpidfile);
  43. alarm(180);
  44. }
  45.  
  46.  
  47. /*the only normal way out of the program*/
  48. die()
  49. {
  50. register struct player *hh;
  51. /*fprintf(stderr,"DIE WAS CALLED.\n");*/
  52.  
  53.     hh=startlist;
  54.     while (hh!=NULL) {
  55.             if ((hh->id!=ROMID)&&(hh->id!=KLINGID)) kill(hh->pid,9);
  56.             hh=hh->next;
  57.             }
  58. /*the only normal way out of the program*/
  59.     exit(0);
  60. /*the only normal way out of the program*/
  61. }
  62. /*the only normal way out of the program*/
  63.  
  64. handler()
  65. {
  66.  noofsignals++;
  67. }
  68.  
  69. killcontrol()
  70. {
  71. int f;
  72. /*return(0); THIS MUST BE PUT IN DURING THE DEVELOPMENTAL PHASE*/
  73.  
  74. if ((f=open("/dev/tty",2))!= -1)
  75.         {
  76.         ioctl(f,TIOCNOTTY,0);
  77.         }
  78. }
  79.  
  80. main()
  81. {
  82. register struct player *cp;
  83. int f,o;
  84. register int x,y,x1,x2,y1,y2,xx1,xx2,yy1,yy2,xold,yold,xnew,ynew;
  85. register char c;
  86. register struct torpedo *torpedo;
  87. register int xx,test;
  88.     
  89. test=1;
  90. f=umask(000);
  91. killcontrol();
  92. noofsignals=0;
  93. signal(SIGINT,SIG_IGN);
  94. signal(29,handler); 
  95. signal(SIGALRM,checkmasterpidfile); 
  96. setupuniverse();
  97. storm=OFF;
  98. noofaliens=0;
  99. noofplayers=0;
  100. debug=OFF;
  101. startlist=NULL; 
  102. taillist=NULL; 
  103. tstartlist=NULL; 
  104. ttaillist=NULL;
  105. cp=NULL;
  106. putmasterpidintofile();
  107. alarm(10);
  108. for (;;)
  109. {
  110. /*main iteration loop*/
  111.     while  (cp!=NULL)
  112.     {
  113.     if ((cp->id==ROMID)||(cp->id==KLINGID)) 
  114.             {
  115.              servicealien(cp);
  116.              x=cp->xpos; y=cp->ypos;
  117.              if ((x<58)||(x>899)||(y<19)||(y>899))
  118.                 {
  119.                 if (x<58) cp->xvel=1;
  120.                 if (x>899) cp->xvel= -1;
  121.                 if (y<19) cp->yvel=1;
  122.                 if (y>899) cp->yvel= -1;
  123.                 }
  124.              goto goonlabel;
  125.              }
  126.     cp->clflg=OFF;
  127.     ioctl(cp->fd,FIONREAD,&noofchars);
  128.     if (noofchars>0) processinput(cp,&noofchars);
  129.     if ((cp->stat==5)&&(cp->flyto>=0)&&(cp->flyto<4)) auto_pilot(cp);
  130.     if (cp->stat>=9) goto goonlabel;
  131.  
  132.     /*****************PLOTTING OBJECT STARTS HERE!!!******************/
  133.  
  134.     f=cp->xvel;
  135.     o=cp->yvel;
  136.     test=1;
  137.     x=cp->xpos;
  138.     y=cp->ypos;
  139.     cp->oldxpos=x; cp->oldypos=y;
  140.     xx1=x-28; xx2=xx1+57;
  141.     yy1=y-9; yy2=yy1+19;
  142.     x+=f; y+=o;
  143.     x1=x-28; x2=x1+57;
  144.     y1=y-9; y2=y1+19;
  145.     cp->xpos=x; cp->ypos=y;
  146.     
  147.     if ((cp->stat>5)||((f==0)&&(o==0))) goto plotmoving;
  148.     
  149.     cp->chflg=FLAG;
  150.     
  151.     for (i=yy1; i<yy2; ++i)
  152.     {
  153.     if ((xp=univ[i])==NULL) continue;
  154.     do
  155.     {
  156.     if ((xx=xp->x)>=xx1)
  157.         {
  158.     l=19-(i-yy1);
  159.     if(((k=20+(xx-xx1))>19)&&(k<77)&&(l>0)&&(l<20))
  160.             {
  161.             test=0;
  162.             poscurs(cp,k,l);
  163.                  write(cp->fd,
  164.             ((l==10)&&((k<47)||(k>49)))?
  165.                     "-":((k==48)&&(l!=10))?"|":" ",1);
  166.             }
  167.     l+=o;
  168.     if(((k-=f)>19)&&(l>0)&&(k<77)&&(l<20))
  169.             {
  170.             poscurs(cp,k,l);
  171.             test=0;
  172.             write(cp->fd,&(xp->c),1);
  173.             }
  174.         } 
  175.     
  176.     if (xx>x2) 
  177.         xp=NULL;
  178.             else 
  179.         xp=xp->next_thing;
  180.  
  181.     }  while (xp!=NULL);
  182. } 
  183.  
  184. if (test) plotposition(cp);
  185.  
  186. /*****************************************************************************
  187.            Player plotting starts here!!!!
  188. *****************************************************************************/
  189.     
  190. plotmoving:
  191.  
  192. player=startlist;
  193.  
  194. while (player!=NULL)
  195. {
  196. if ((cp==player)||((cp->chflg==0)&&(player->chflg==0)))
  197.         {
  198.         player=player->next;
  199.         continue;
  200.         }
  201. xold=player->oldxpos;
  202. yold=player->oldypos;
  203. xnew=player->xpos;
  204. ynew=player->ypos;
  205. if (inuniv(xold+f,yold+o)<36)
  206.      {
  207. if ((player->cloakingdevice==OFF)||(player->clflg))
  208.         {
  209.         l=19-(yold-yy1);
  210.         if(((k=20+(xold-xx1))>19)&&(k<77)&&(l>0)&&(l<20))
  211.             {
  212.             poscurs(cp,k,l);
  213.             write(cp->fd,((l==10)&&((k<47)||(k>49)))?"-":((k==48)&&(l!=10))?"|":" ",1);
  214.             }
  215.         }
  216.     }
  217. if (inuniv(xnew,ynew)<36)
  218.     {
  219.     if (player->cloakingdevice==OFF)
  220.         {
  221.     if (player->stat<12)
  222.             {
  223.             l=19-(ynew-y1);
  224.             if(((k=20+(xnew-x1))>19)&&(l>0)&&(k<77)&&(l<20))
  225.                 {
  226.                 poscurs(cp,k,l);
  227.                 write(cp->fd,&(player->id),1);
  228.                 }
  229.             }
  230.         }
  231.     }
  232.     player=player->next;
  233. }
  234.  
  235. /**************************************************************************
  236.         Torpedo plotting starts here!!
  237. ***************************************************************************/
  238.  
  239. torpedo=tstartlist;
  240.  
  241. while (torpedo!=NULL)
  242. {
  243. xold=torpedo->oldxpos;
  244. yold=torpedo->oldypos;
  245. xnew=torpedo->xpos;
  246. ynew=torpedo->ypos;
  247. player=torpedo->whofrom;
  248. if (((player!=NULL)&&(cp!=player)&&(xold==player->oldxpos)&&
  249.    (yold==player->oldypos)) || ((inuniv(xold,yold)!=NULL)))
  250.     {
  251.     torpedo=torpedo->next;
  252.     continue;
  253.     }
  254.     k=20+(xold-xx1);
  255.     l=19-(yold-yy1);
  256.     if((k>19)&&(k<77)&&(l>0)&&(l<20))
  257.             {
  258.             poscurs(cp,k,l);
  259. write(cp->fd,((l==10)&&((k<47)||(k>49)))?"-":((k==48)&&(l!=10))?"|":" ",1);
  260.             }
  261.       if (torpedo->life>0)
  262.         {
  263.         l=19-(ynew-y1);
  264.         if(((k=20+(xnew-x1))>19)&&(l>0)&&(k<77)&&(l<20))
  265.             {
  266.             poscurs(cp,k,l);
  267.             write(cp->fd,&(torpedo->weapon),1);
  268.             }
  269.         }
  270.     torpedo=torpedo->next;
  271.     }
  272.         /*****************PLOTTING OBJECTS STOPS HERE!!!******************/
  273.  
  274. if ((x<58)||(x>899)||(y<19)||(y>899))
  275.     {
  276.     if (x<58) cp->xvel=1;
  277.     if (x>899) cp->xvel= -1;
  278.     if (y<19) cp->yvel=1;
  279.     if (y>899) cp->yvel= -1;
  280.     } else 
  281.     {
  282.     if ((c=inuniv(x,y))!=NULL) collision(cp,c);
  283.     if (((f!=0)||(o!=0))&&((x==450)||(y==450)))
  284.     {
  285.     j=which_sector(cp->xpos,cp->ypos,f,o);
  286.     switch (j)
  287.     {
  288.     case 1:
  289.     {
  290.     plot1(cp,"    You have just entered Federation space again.        ");
  291.     plot2(cp,"              It's nice to be home.                      ");
  292.     break;
  293.     }
  294.     case 2: 
  295.     {
  296.     plot1(cp,"You have just entered Klingon Space. Remember the klingon");
  297.     plot2(cp,"proverb : Revenge is a dish that is best served cold.....");
  298.     break;
  299.     }
  300.     case 3:
  301.     {
  302.     plot1(cp,"          You have just entered the Mutara Nebula.       ");
  303.     plot2(cp,"  Here, Shields and  Cloaking Devices will not function! ");
  304.     cp->cloakingdevice=OFF;
  305.     if (cp->shields)
  306.         {
  307.         cp->id=(char)(cp->id+32);
  308.         cp->shields=OFF;
  309.         }
  310.     plotshields(cp);
  311.     plotcloakingdevice(cp);
  312.     if (cp->stat<12) cp->chflg=FLAG;
  313.     break;
  314.     }
  315.     case 4:
  316.     {
  317.     plot1(cp,"          You have just entered the Neutral Zone.        ");
  318.     plot2(cp,"        We are now in violation of treaty Captain!!      ");
  319.     break;
  320.     }
  321.     default :
  322.     break;
  323.     } /*switch*/
  324.     }
  325.     }
  326.     
  327.     if ((storm)&&(f==-1)) storm=OFF;
  328.     /*ENERGY CALCULATION*/
  329.     i=cp->cloakingdevice;
  330.     i+=cp->shields;
  331.     j=(abs(f)>abs(o))?abs(f):abs(o);
  332.  
  333.     if (j==0)
  334.         {
  335.         if ((i==0)&&(cp->energy<cp->maxenergy)) ++cp->energy;
  336.             else goto skipenergy;
  337.         } else
  338.         {
  339.         if ((j==1) && (i==0)) goto skipenergy;
  340.         cp->energy -= (i+j);
  341.         }
  342.  
  343.     skipenergy:
  344.     
  345.     if ((cp->energy==75)&&(storm==OFF)) flare();
  346.     if (cp->energy<100) plotenergy(cp);
  347.     /*ENERGY CALCULATION*/
  348. goonlabel:
  349.     if (cp->impulsemove>0) {
  350.                 cp->impulsemove=0;
  351.                 cp->xvel=0;
  352.                 cp->yvel=0;
  353.                 }
  354.      if (cp->chflg>0) --(cp->chflg);
  355.     cp=cp->next;
  356.     } /*while cp!=NULL*/
  357. remove_finished_players();
  358. if (tstartlist!=NULL) move_torpedos();
  359. if (noofsignals>0) { 
  360.             makenewplayerandjoinhimin();
  361.                 --noofsignals;
  362.            }
  363. if ((noofplayers==1)&&(noofaliens<MAXALIENS)) makealien();
  364. cp=startlist;
  365. /*main iteration loop*/
  366. }
  367. }
  368.  
  369. remove_finished_players()
  370. {
  371. struct player *y;
  372.  
  373. y=startlist;
  374. while (y!=NULL)
  375.     {
  376.     if ((y->stat==12)&&(y->chflg<1)) 
  377.                 remove_player_from_list(y);
  378.     y=y->next;
  379.     }
  380. }
  381.  
  382. flare()
  383. {
  384. register struct player *x;
  385.  
  386. broadcast("Galactic ion storm commencing. Cloaking devices are off. ");
  387. storm=ON;
  388. x=startlist;
  389. while (x!=NULL)
  390.     {
  391.     x->cloakingdevice=OFF;
  392.     plotcloakingdevice(x);
  393.     x->chflg=FLAG;
  394.     x=x->next;
  395.     }
  396. }
  397.